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FOCAL LUNAR LANDING SIMULATION (APOLLO) 
DECUS Program Library Write- up DECUS No, FOCAL8-81 

ABSTRACT 

This program realistically simulates an Apollo moon landing using NASA figures. It begins with 
module at ,0 seconds, 120 miles above the moon, carrying 16000 pounds of fuel, with a velocity 
of 2600 miles per hour. Upon radar checks of velocity, altitude, remaining fuel, and time each 
10 seconds, you may decide upon fuel rate for next time interval. The object is to land safely 
on the moon. 

RESTRICTIONS 

You cannot retain FOCAL's extended functions (LOG, EXP, etc). 
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C- FOCAL, 19 69 

01.04 T "CONTROL CALLING LUNAR MODULE. MAM UAL CONTROL IS NECESSARY"! 

01.06 T "YOU MAY RESET FUEL RATE K EACH 10 SECS TO OR ANY VALUE"! 
01.03 T "BETWEEN 8 ft 200 LBS/SEC YOU'VE 16000 LBS FUEL. ESTIMATED"! 
01.11 T "FREE FALL IMPACT TIME- 120 SECS. CAPSULE WEIGHT- 32500 LBS"! 
01.30 T "FIRST RADAR CHECK COMING UP"!!!;£ 

01.30 T "COMMENCE LANDING PROCEDURE" ! "TIME* SECS ALTITUDE," 
01.40 T "MILES+FEET VELOCITY, MPH FUEL, LBS FUEL RATE"! 

01.50 S L = 0;S A=120;S V=1;S M=32500;S N=16500;S G= • 00 1 ; S Z = 1 . 8 

02.10 T " ",%3,L," ",FITR(A)," ", %4, 5280* ( A- FI TRC A) ) 

02.20 T %6.02, " ", 3600* V, " ", %6. 01,M-N, " K= "! A KiS T= 1 

02.70 T %7.02!l <K>2. 7.2*1 ( 200-K) 2. 72! I (K-8 ) 2. 7 1 , 3. 1, 3. 1 

02.71 I (K-0)2. 72, 3* 1, 2. 72 

02.72 T "NOT POSSIBLE"; F X= 1,51 IT 

02.7 3 T "K = ";A K1G 2. 7 : 

03.10 I ((M-N)-. 001)4. 1M ( T- . 001 ) 2. 1 ! S S= T 

03.40 I ((N+S*K)-M)3* 5, 3. 5; S S=(M-N)/K 

03.50 D 9JI (I>7.1,7.1U (V>3. 8,3*8*1 (J)S.l 

03*80 D 65 G 3. 1 

04.10 -P "FUEL OUT AT",L," SECS"! 

04.40 S S=(-V+FSQT( V*V+2*A*G))/G;S V=V+G*S;S L=L+S 

"ON THE MOON AT",L," SECS"!;S W=3600*V 

"IMPACT VELOCITY OF", W, " M. P. H . " !, "FUEL LEFTS" 

M-N," LBS. "!;l (- W+D5.5, 5. 5 

"PERFECT LANDING !- (LUCKY )"!; G 5.9 

(-W+ 10) 5.6, 5. 6!T "GOOD L AN DI N G- ( COULD BE BETTER) "!;G 5.9 

(-W+25)5.7, 5. 71 T "CONGRATULATIONS ON A POOR LANDING"!! G 5.9 

<-W+60)5.8, 5.81T "CRAFT DAMAGE. GOOD LUCK"!! G 5.9 

"SORRY, BUT THERE WERE NO SURVI VO RS-YOU BLEW IT!"!"IN " 

"FACT YOU BLASTED A NEW LUNAR CRATER", W* . 277777, " FT. DEEP"! 

! ! !"TRY AGAIN?"! 

"CANS. YESORNO)"P!l ( P- 0NO ) 5.94, 5. 98 

(P-0YES) 5.9 2, 1.2, 5.9 2 

"CONTROL OUT"! 9 

06.10 S L=L+S;S T=T-S;S M=M-S*K;S A=I;S V=J 

07.10 I (S-.005) 5. l; S S=2*A/( V+FSQT( V*V+2*A*( G-Z*K/M))) 
07.30 D 9; D 6!G 7. 1 

08.10 S W=( 1-M*G/CZ*K))/2J S S=M* V/(Z*K*< W-t-FSOTC W*W+ V/Z) ) ) + . 05!D 9 
08.30 I (1)7.1, 7. l;D 6;l (-J)3* 1, 3. i;I ( V)3. 1, 3. 1,8. 1 

09. 10 S f)*S*K/MJ S J= V+G*S+Z*C-f)-Qt 2/ 2- Of 3/ 3- Of 4/ 4- Qt 5/5) 

09. 40 S I « A- (4* S* S/.f*- V* *;♦ /> S*( 0/P*Of IVMfit IV 1 l'+fjt 4/ yfltQt §/ 30) 
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